Aminet 12

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / lang / HeliOS3.lha / helios_demo_disk3 / source / Demo3_SimpleSprite.src < prev next >

Wrap

Text File | 1995-11-11 | 15.4 KB | 585 lines

\ *********************************************************** \ \ SIMPLE SPRITE DEMO \ \ *********************************************************** \ \ This code demonstrates how to create a simple HeliOS single \ sprite (a BOB to be precise) and move it around. \ \ This code builds upon the following Demos: \ \ Demo1_SinglePF.src \ Demo2_SinglePFCopper.src \ \ This code is then expanded in the following Demos: \ \ Demo4_MultiSprites.src \ Demo5_MultiSptCollide.src \ Demo6_SimpleAnim.src \ Demo7_MultiAnim.src \ \ *********************************************************** \ *********************************************************** \ Re-initialise HeliOS dictionary to standard CORE vocabulary \ *********************************************************** \ This should always be used at the start of any program which \ is to be repeatedly recompiled. FORGET **CORE** \ ************************* \ Load include symbol files \ ************************* \ \ These "include files" are pre-compiled (for speed) versions of the \ Amiga includes and the Helios system includes. \ \ Uncomment the lines below for standalone compilation, but otherwise \ it is better to set these include files from the Helios Forth menus AMIGAINCLUDE HeliOS:HeliOS_AmigaInclude USERINCLUDE HeliOS:HeliOS_UserInclude \ **************************************** \ Create display imagery file name strings \ **************************************** \ These files are ordinary IFF's (and may be "PowerPacked" if required) \ \ The pictures here will be loaded into each of the display BitMaps. \ $CONSTANTL Slice1Pic $Helios:Source/Data/Pic1$ \ ************************************** \ Create display configuration constants \ ************************************** \ \ Collect all "display-specific" parameters here and generate "named" \ constants which make references easier than using numeric values. \ \ Collecting these together here makes it easier to adjust things at any \ time without having to search source code to replace values individually. \ 256 CONSTANT DisplayHeight \ Full PAL display 320 CONSTANT DisplayWidth \ Lores display 44 CONSTANT DisplayTopLine \ Display start DisplayWidth CONSTANT Slice1Width \ Lores width DisplayWidth 32 + CONSTANT Slice1RasterWidth \ Raster=SWidth+32 DisplayHeight CONSTANT Slice1Height \ Slice height DisplayHeight 32 + CONSTANT Slice1RasterHeight \ Slice Raster=DHgt+32 0 CONSTANT Slice1Mode \ Lores 3 CONSTANT Slice1Planes \ Slice bitplanes \ The calculation below takes the number of bitplanes and calculates \ how many colours this represents. \ \ One bitplane gives two colours. \ \ Each additional bitplane multiplies the number of colours by two. \ \ Performing a single LSL operation on any number multipies by 2, so we \ have a quick method of multiplying by two for our colour calculation. \ \ In this case, we need "2 to the power 3", which is 2*2*2=8. \ \ e.g. 2*2*2 \ ^ ^ ^ \ Total number of planes = 3 \ \ \ So, we take the first value two \ \ e.g. 2*2*2 \ ^ \ Initial start value of 2 \ \ and we now need to multiply it by two "the_number_of_planes minus_one" \ more times. \ \ e.g. 2*2*2 \ ^ ^ \ Total planes minus one \ \ \ So, Number of colours = 2 operated on by LSL NumberOfPlanes-1 times. \ 2 Slice1Planes 1- LSL CONSTANT Slice1Colours \ A-slice colours \ *********************** \ Error handling routines \ *********************** \ This error handler allows all errors to be routed via a comprehensive \ sequential closedown routine, which is associated with the HeliOS \ system error handler word ERROR". \ \ When ERROR" senses an error, it prints an associated error message \ delimited by '"' characters, and then closes everything down using the \ routine CLOSEDOWN below which you have supplied. \ \ This simplifies errors checks to the use of a single word, ERROR", which \ displays a text message and closes eveything down. \ 0 VARIABLE (CLOSEDOWN) : ?CLOSEDOWNERROR IF CR CR TYPE CR CR ." Press <Space> to quit!" CR CR WAITSPACE (CLOSEDOWN) @EXECUTE QUIT ELSE DDROP THEN ; LATESTCFA VARIABLE ERROR1 \ **************************************** \ Create display pointer storage variables \ **************************************** \ Here we create a set of "pointers", initially set to a "null" value. \ \ These "pointers" are set up as "long addresses" when various components \ of the display system are allocated and initialised. \ \ Note that initially these are all set to zero, and we clear them back \ to zero when we de-allocate the associated resource. \ \ These DPOINTERs are all initially set to "null" by using '0.'. \ \ When we allocate memory or Amiga system resources in the program at \ run-time, these pointers are updated to contain the 32-bit address \ of the newly allocated resource. \ \ Subsequently the symbolic DPOINTER name can be used in your code to \ represent the associated address. 0. DPOINTER Display1 \ Main Display structure pointer 0. DPOINTER Slice1 \ Slice 1 Slice structure pointer 0. DPOINTER Slice1_ColorMap \ Slice 1 ColourMap structure pointer 0. DPOINTER Slice1_RasInfo \ Slice 1 RasInfo structure pointer 0. DPOINTER Slice1_BMap \ Slice 1 BitMap structure pointer 0. DPOINTER Slice1_SliceControl \ Slice 1 SliceControl structure pointer \ ************* \ Colour tables \ ************* \ Each colour entry requies 2 bytes of storage space CREATEL Slice1_ColorTable \ Create longword pointer to table Slice1Colours 2* 0 ALLOTFILL \ Allocate Slice1 colours * 2 bytes \ ************************************* \ Copper strip for graduated background \ ************************************* 0. DVARIABLE Copper \ 32-bit CopperList pointer store 0. DVARIABLE CopperLength \ 32-bit CopperList length store : AddCopper \ Add custom copper list to display Display1 \ We are adding CopperList to Display1 Copper D@ ADDCOPPERSTRIP SORTSTRIPTABLE LINKSTRIPS DDROP ; : RemCopper \ Remove custom copper list from display Display1 \ We are removing CopperList from Display1 Copper D@ DFLAG IF REMCOPPERSTRIP LINKSTRIPS DDROP ELSE DDDROP THEN ; : Create_Copper COPPERSTART Copper D! 0 [ DECIMAL ] 45 [ HEX ] FFFE COPPERWAIT DROP 0100 18E COPPERMOVE DROP 0 [ DECIMAL ] 60 [ HEX ] FFFE COPPERWAIT DROP 0200 18E COPPERMOVE DROP 0 [ DECIMAL ] 75 [ HEX ] FFFE COPPERWAIT DROP 0300 18E COPPERMOVE DROP 0 [ DECIMAL ] 90 [ HEX ] FFFE COPPERWAIT DROP 0400 18E COPPERMOVE DROP 0 [ DECIMAL ] 105 [ HEX ] FFFE COPPERWAIT DROP 0500 18E COPPERMOVE DROP 0 [ DECIMAL ] 120 [ HEX ] FFFE COPPERWAIT DROP 0600 18E COPPERMOVE DROP 0 [ DECIMAL ] 135 [ HEX ] FFFE COPPERWAIT DROP 0700 18E COPPERMOVE DROP 0 [ DECIMAL ] 150 [ HEX ] FFFE COPPERWAIT DROP 0800 18E COPPERMOVE DROP 0 [ DECIMAL ] 165 [ HEX ] FFFE COPPERWAIT DROP 0900 18E COPPERMOVE DROP 0 [ DECIMAL ] 180 [ HEX ] FFFE COPPERWAIT DROP 0A00 18E COPPERMOVE DROP 0 [ DECIMAL ] 195 [ HEX ] FFFE COPPERWAIT DROP 0B00 18E COPPERMOVE DROP 0 [ DECIMAL ] 210 [ HEX ] FFFE COPPERWAIT DROP 0C00 18E COPPERMOVE DROP 0 [ DECIMAL ] 225 [ HEX ] FFFE COPPERWAIT DROP 0D00 18E COPPERMOVE DROP 0 [ DECIMAL ] 240 [ HEX ] FFFE COPPERWAIT DROP 0E00 18E COPPERMOVE DROP 0 [ DECIMAL ] 255 [ HEX ] FFFE COPPERWAIT DROP 0F00 18E COPPERMOVE DROP [ DECIMAL ] COPPEREND CopperLength D! Copper D! ADDCOPPER ; : Free_Copper \ Closes down and frees copperlist memory RemCopper Copper D@ FREEMEMORY ; \ *********************************** \ Create Display and Slice structures \ *********************************** \ This routine simply makes blank structures, which then need to be \ initialised later (in the CREATE_DISPLAY routine). : CREATE_DSLICES DS_SIZEOF MAKESTRUCTURE Display1 MAKEPOINTER \ Main "Display" structure SL_SIZEOF MAKESTRUCTURE Slice1 MAKEPOINTER \ Display "Slice" structure ; : FREE_DSLICES Slice1 DDUP FREEMEMORY CLEARPOINTER Display1 DDUP FREEMEMORY CLEARPOINTER ; \ ****************************** \ Create RasInfo structures etc. \ ****************************** : CREATE_RASINFO \ First allocate and initialise complete RasInfo structures. \ \ This routine automatically allocates all BitMaps etc. \ Slice1RasterWidth Slice1RasterHeight Slice1Planes OPENRASINFO DFLAG0= ERROR" Fail: RasInfo1" Slice1_RasInfo MAKEPOINTER \ Set invisible area "sprite margins" for slice RasInfo 16 Slice1_RasInfo ri_RxOffset INDEX!L 16 Slice1_RasInfo ri_RyOffset INDEX!L \ Store BitMap pointer - often useful for later reference Slice1_RasInfo ri_BitMap INDEXD@L Slice1_BMap MAKEPOINTER ; : FREE_RASINFO Slice1_RasInfo DDUP CLOSERASINFO CLEARPOINTER ; \ ******************************** \ Create Display/Slice Copperlists \ ******************************** \ This function builds the main display copperlist by: \ \ 1. Initialising the Slice data structure \ 2. Calling MAKECOPSTRIP for the slice, to build a copperlist \ 3. Calling MAKEDISPLAY to build the master Display copperlist \ : CREATE_DISPLAY \ First initialise main display structures Slice1 Display1 DS_Slice INDEXD!L Slice1Width Slice1 SL_DWidth INDEX!L Slice1Height Slice1 SL_DHeight INDEX!L DisplayTopLine Slice1 SL_DyOffset INDEX!L Slice1_RasInfo Slice1 SL_RasInfo INDEXD!L Slice1_ColorMap Slice1 SL_ColorMap INDEXD!L Slice1Mode Slice1 SL_Modes INDEX!L \ Generate copper list information for each of the display slices Slice1 MAKECOPSTRIP D0= ERROR" Fail: Slice1CopStrip" \ Make display Display1 MAKEDISPLAY D0= ERROR" Fail: Display1" ; : FREE_DISPLAY Display1 FREEDISPLAY Slice1 FREECOPSTRIP ; \ ******************************************************** \ Create SliceControl structures for double buffered slice \ ******************************************************** \ SliceControl structures are used to control any slices which perform \ mapping or scrolling functions, or which require double or triple \ playfield buffering. \ \ In this case we have one slice which does not scroll, is not mapped, \ but IS double buffered. \ : CREATE_SLICECONTROL \ Make SliceControl for double buffered bitmap display Slice1 0 0 MAKESLICECONTROL DFLAG0= ERROR" Fail: SliceControl1" Slice1_SliceControl MAKEPOINTER \ Install slice controls into HeliOS display control system Slice1_SliceControl INSTALLSLICECONTROL ; : FREE_SLICECONTROL CLEARSLICECONTROLS Slice1_SliceControl CLOSESLICECONTROL ; \ These routines load an IFF picture into supplied BitMap, and correctly \ initialises the supplied ColorTable. \ \ The ColorTable is then used to create an initialised ColorMap structure. \ : CREATE_IMAGERY Slice1_BMap Slice1_ColorTable Slice1Pic 10 2 DOSLIB \ Call to internal HeliOS library 10 <> ERROR" Fail: Slice1Pic" Slice1_ColorTable Slice1Colours MAKECOLORMAP \ Allocate ColourMap DFLAG0= ERROR" Fail: Slice1ColorMap" Slice1_ColorMap MAKEPOINTER ; : FREE_IMAGERY Slice1_ColorMap DDUP FREECOLORMAP CLEARPOINTER ; \ *********** \ Sprite Demo \ *********** \ ********************* \ Sprite Demo constants \ ********************* \ Store the gun speed as a CONSTANT 4 CONSTANT GunSpeed \ Speed of Gun movement \ ************************************************* \ Create sprite demo pointers and storage variables \ ************************************************* 0. DPOINTER GunSpriteSet \ Gun sprite image \ *************************** \ User input response routine \ *************************** : MoveGun RAWKEY @ 78 = JOY1LEFTRIGHT 0> OR IF GunSpeed 19 320 GunSpriteSet 8. D+ D@L SpriteCtrl_XPos D+ LIMIT+!L ELSE RAWKEY @ 79 = JOY1LEFTRIGHT 0< OR IF GunSpeed NEGATE 19 320 GunSpriteSet 8. D+ D@L SpriteCtrl_XPos D+ LIMIT+!L THEN THEN ; \ ******************** \ Create sprite object \ ******************** : CREATE_SPRITE \ ---------- \ Gun sprite \ ---------- Slice1_BMap 154 272 13 15 1 MAKESPRITESET DFLAG0= ERROR" Fail: Gun SpriteSet" GunSpriteSet MAKEPOINTER GunSpriteSet 8. D+ D@L DDUP SpriteCtrl_XPos D+ 170 -ROT !L SpriteCtrl_YPos D+ 239 -ROT !L Slice1_SliceControl GunSpriteSet INITSPRITESET ; : FREE_SPRITE GunSpriteSet DDUP FREESPRITESET CLEARPOINTER ; \ ********************* \ Close down everything \ ********************* : CLOSEDOWN FREE_SPRITE FREE_COPPER FREE_SLICECONTROL FREE_DISPLAY FREE_IMAGERY FREE_RASINFO FREE_DSLICES RESETERROR" ; LATESTCFA (CLOSEDOWN) ! : TestDisplay \ Start of program SCRCLR CR ." **********************************************************" CR 6 FPENSET ." SIMPLE SPRITE DEMO" CR 1 FPENSET ." **********************************************************" CR CR ." This code demonstrates how to create a simple HeliOS single" CR ." sprite (a BOB to be precise) and move it around." CR CR ." This code build upon the following Demos:" CR CR ." Demo1_SinglePF.src" CR ." Demo2_SinglePFCopper.src" CR CR ." This code is then expanded in the following Demos:" CR CR ." Demo4_MultiSprites.src" CR ." Demo5_MultiSptCollide.src" CR ." Demo6_SimpleAnim.src" CR ." Demo7_MultiAnim.src" CR ." **********************************************************" CR 6 FPENSET ." Press <Space> or <L-Mouse> to see Demo " CR 3 FPENSET ." Use a Joystick to move the gun turret from left to right" CR ." **********************************************************" CR WAITSPACE SCRCLR ERROR1 SETERROR" \ Redirect system errors to our routine ERROR1 CREATE_DSLICES CREATE_RASINFO CREATE_IMAGERY CREATE_DISPLAY CREATE_SLICECONTROL CREATE_COPPER CREATE_SPRITE HeliOS_On GunSpriteSet 8. D+ D@L INSTALLSPRITE 1 FrameRate !L Display1 SHOWDISPLAY BEGIN WAITFRAME MoveGun ?TERMINAL 27 = UNTIL -3 GunSpriteSet 8. D+ D@L SpriteCtrl_Flags INDEX!L 5 DELAY HeliOS_Off CLOSEDOWN ; TestDisplay